COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C ********** EARLY MUSIC NOTATION PACKAGE ************
C00008 00003		SUBROUTINE EXTRA 
C00015 ENDMK
C⊗;
C ********** EARLY MUSIC NOTATION PACKAGE ************
C TO CHANGE CONVENTIONAL NOTATION ENTERED WITH '14' OR '144' TO EARLY MUSIC
C NOTATION, ADD 500 TO P4 OF ALL NOTES AND RESTS. (USE 'A' COMMAND.)
C THE VARIOUS NOTE SHAPES ARE DETERMINED BY THE RHYTHMIC VALUE FOUND IN P9
C (OR P7 WITH RESTS).  THE SAME SHAPES CAN BE MADE!B←rSLr≥αZbV⊗M∧J9αA2α&_4T→αAek↓9↓α$B∃α~|b2>↑Lr≥αR∩2∃α≤B>↑M∧rV6
-∩Mα~⎇⊃α
>$Aα6⊗$B>∩Mr↓αR"*αJ"f$B6&hR
αZbV∃↓E↓eα>∩αA]%∧~>6⊗~α
⊗~⎇∩∃αRD)αN"
α∃α:j∃9↓¬""∃αβ1αZεe*⊗Mα4z22>:α⊗ε∞Bα:ε6*p4*
¬""∃α≥"ε:∩
∩⊃α:⎇"∃αZbV⊗M¬:>V2"α
∃i∧">V
d)α↑"|b∃1α<B>2∃b↓E=Ib↓E=Qb↓E=ab↓E=E2p4*
α↓a↓u∧jεb&l	↓u↓∪↓m↓↓α↓↓↓Qβiα2>t:¬↓uβ⊃Em↓α↓I↓u∧∩J⊗ZM→↓u↓∪⊃l4*~↓↓E↓jαN⊗6L∩J⊗Z*↓u↓I≠Y↓↓9*↓uα6Lr&5↓j↓IQmα↓9IUβiαN⊗lJ6&:Li↓u↓∪)l4(hR
↓α≤*Q↓≡≤z2>J
"&>9:α&9αβAα&→∧r>Qα≤*Qα
JαJ"f$A9"AJI↓↓5j
2ε≤Y1↓Am:"&R*α"⊗J*p4(4T→α6⊗u~VJε$J>9α≤J≡:M∧
J∃α≤z:N&$*J⊗⊃¬"=α
*α¬α~⎇∩5α>2↓≡:>$)≥9↓¬""∃α4*JR&≤
04*~αB>NM"&>9∧JMαN-!α&9¬↓Qα↑M"!αRD)↓≡j-∩=≥αd*Z⊗1∧∩⊗&::α&9α$B∃αN,~>:⊃¬~Bε∞*α~J>hh*
α$B∃α
⎇"R>5∧z→αRD)αNR2→9↓Eα>N&$J>9α|1α:>$)↓≡¬:q$4*~αN⊗Q¬↓eαRz↓Aαεt!αAY∧
Mα~|b2>↑~p4*
∧j⊗:N-∩εR&|qαN&<rMiαβ1↓uMβj
m↓≠	v
α<JR!α$zQα&rα6&∩$b∃m↓≠⊃v
α<JR!α≤bεN!Z4*
α$$%≠→v=mβ→Qv=¬:&R!¬~2εNBp4(4T→↓α2L:εRV∀*Mαε∀)α∞J,
R⊗⊃∧2J>5∧~>6
LrεR&|rMα>2α6εbLj¬1αdz:≡¬∧
:⊃α∃∩⊗Z&~αN"ε∧*L4*~↓α>Ibα~>I¬""∃α≤b>B⊗"αN"ε∧*M1α∃IαN⊗%"&:≥¬↓euA∧
:⊃αβ1α⊗F,
1αRzαN>6*α:V6∀*Iα~∀z44*~↓↓EE¬"=↓EJq↓α~⎇⊃αN2⎇α⊗MαM!α&M¬""∃α≤*∞>:"α∩&≡M!α>→¬""∃αu*6
⊗∩αR"ε"α∩⊗R-∩6&:-_4*
ααR"∃∧:>ε1∧z→αRD)αN2⎇α∃9↓∧J→αRD)α:Vl∩⊗IαM→α:⊗<
R&Z*αR"∃¬~2>B*α↑&2bα
∃α$z↑:↑
∩⊃84T→↓↓↓¬↓QuUβ!↓αA3iEEα<J21αl
.∃α
αN2>∧)α~J|iα→↓E"J⊗
d)α∞2,1%αVααR=α:p4*
α↓↓α&2αAYu!αR"*αN2>∧)α↑&daα
∃∧2J>5∧1αVA¬"=α
r↓αAQk)Aa↓¬↓Yu5!α↑&daα≡&4)α∧4T→↓↓↓¬~2>B*α∩>↑rα~J>jα
αRzα→84Ph*
α$yα6>4)αε:JαN2>∧J:≥αdJ≡εR-∩∃α⊗D
∞R2Jα&RM∧z↑9α<J∩R!¬"=αRD)α2⊗5!↓"~⎇⊃α∞>l⊃44*~α&:⊗"α2&≡
"VJ⊗~IαN⊗"αAeα$y↓5Er↓αAM¬:&21¬""⊗9∧J:∩&≤
R⊗⊃¬""∃α∧zN&RLz9α>2α&RLhR
αJL:"Qα≤J∩∃αLrNR⊗!α>→∧JRMαd*~Qα≤J∩∃8hP4*
αα~>I¬""∃α≤z6
&t
R&>rα2&≡
"VJ⊗~aα~&∃~QαN-!αAe¬"=↓Arα:⊗b"αR"∃¬∩&≡""α"ε: h*
α≥
VεJ*α↑&2bα
∃α≤*Q9↓¬↓YuI∩α≡&Z-→α¬α≤J6B2*αNFV
∩∃α↑M"!α:zαNR⊗jq"
J-2&M$hR
α~⎇⊃α¬α$*N∞⊗t"&:≥¬~R⊗5∧z9αRD)αJ&<BQαNL"∃1αβ1uIErB2>:<	$4*~α~>I∧
9αε≤~⊗:∩Lr≥αN$*5α>rαR"∃¬∩&≡""αN&∩*aαAYk⊃e84T→α~>∩α¬αN$*5α>rαR"∃∧b⊗~Q¬~&∩∃∧z→αRD)αNF,
J∃α≤*QαA:αR=α
α:⊗≡
"&Z∃∧rV6
-⊃84*~αR"∃∧

N>e*R∃α4
2V∃∧z→αRDJMα:,j
⊗I¬:&21∧"⊗R⊗∀j&:∃¬""∃αd*:≡RBα>→α$B∃αN$*584T→αR"*α∩&J,~R&>rα>→α$B&Mαd*~Qα≥"⊗5αM→αN⊗"α&9αβ)9αVαaαAUk	Amα$z↑91¬↓UuIαp4(4T→αR"*α2⊗~"α"ε:"αNFV
∩∃α&~α&Mα∀*NQα,rR⊗J,!α
e∧jε.&t9α¬α≤zBeα|1αR"*αJ&≡E!α>:*p4*
¬:&R!¬""∃α≤zBe1¬:"⊗9¬↓Uα&~αN⊗Q¬"=↓5
αR"∃¬~FVε∀)αB&4zRMα|qα&R~α2⊗~"αN&∩*p4*
¬""&M∧r⊗]αtzR∃αl
eα
*α6>Z,!αVA∧zIα∩⎇:9αRzαR"∃¬αJ>B-⊃αB>≤JR&>rq↓αε~α∧4*~αJ⊗N,bQα>2αR"&~αB&Z⎇"&:≥∧	αNR,iαR"
!α↑ε~α>J&<J:ε2eIα>9¬""∃α∀J≡"Q¬~&∩∃∧r>\4T→αεB∧*εJM∧z9αRD)α2⊗5!αN&$)9"N$*5αVαaαAYk⊃Emα$z↑91¬↓YuIJI↓α:zαNR⊗jα∞ε9∧∩∀4*~αBVQ∧z9αRD)αJ&<BQαNL"∃α>2α¬αJ-2⊗JN,!α:>$)9↓αreαN$*5α:,*∩⊗⊃∧J9αRD)α∞⊗u"Jε0hR
αB⎇~&R&|q1α
-"↑⊗⊗rαR"∃¬"↑=α≥
VεJ-→1α∞qα
∃∧
∩∩⊗"αR=α$B∃αJL:"QαD
:⊃αtzR∃α∃H4*
¬αVRRLr≥αRD)αBJ⎇α⊗Iα4
2V⊗~α&9αβ9↓":,:εR&4)%αεt!αAUαAEAvra↓IAh	%9↓∧∩d4*~α∞"εt:&:≥¬""∃α4
2V⊗~α>→αβ9αR"M→α∞⊗u"Jε1¬~R⊗5∧jεeα∀)αVN,!αR=∧~>::,~QαRD(4*
¬"↑=αtzR⊗M¬">≡⊗$B⊗Iα
→α↑⊗daαεM¬"=α⊗E"⊗:⊃∧∩⊗f>t!αR"*α2⊗~"α"ε:"α:>R*p4*
∧∩eαV≤J:≥α$B&Mα∧JZ>RLr≥α6-"">⊃∧∩>R!∧Bε2Z-→α>→∧	αR↑zα:>R*α2&≡
"VJ∃¬:&20hR
α↑Lb1α"
2∃αRD)αNεl)α">∀Jjε:$
1αB⎇~&R&|qα&9¬↓M1α<B&∞!¬:&21∧J:∩&≤
R∃α$B∀4*~α∞⊗:$*Iα>2αR"∃∧b&≡ε%*J∃8hP4(0&N,∩J>V$J:∃α-BRJ¬h(&&mα2&∞M!α&:$*≡⊗ID	6E2~ji$4PJJ⊗εbαB>LhP&∞>lj>9↓⎇~R→>∃~R~ε~A5M="I2JN$QH4(L~>66|qαIIdR¬2∞,rRI2S⊃2J*
AIA%dRE!IαH4(&≤z66>rzB2R∩zB2Qe∩"Q2$JM↓>∧zN%>≥"~→!k→=Q%dR)I2∧zL4(L~>66|q>ε22z&:AC!Y%2∃~Q]2∃~QM2∃~Ra2∀j&:%e∩&:Ye∩¬2J∩bJi2∀Re04PIEαF
bJ*]eRi2*BbJ≥2\a2J*→2-2bbJE2∃B=2)-A2J:zb**)`h(%E¬αV:∞"bJ∩&~bJ)2b→]LhP&⊗F,JZε2,r∞∃↓E⊃Q2JU	!I%Ja")UdRE!MJI1"I2bJ*EC!%%1Dr*I2∀RE!aJI04(K	↓")2b*E!"I%1"∪A2J*
AY%%bBI]2∀RE!UJI1"IJbJ*EC9%%1DQe2*
A]%$hP%E1DQQ2*
AI%%bBIM2∀RE!EJI1")↓2*ECA%%1E⊃EE2∀RE!eJI1")Bb*E!2I$4(K	1"):b*E!*I%1"∃AM2JU	!IAJI1"I*bJ*EC→%%1E∩!2JU	!EeJI1"JEA2J*
AEa%Hh(%EbB)M2U	!E%Ja":>d*∩≥2U	!e%Hh*∞L"εR¬¬∩
&≥{	9U=e∩2&≥{⊃9A<hP&J
L9uE9(h(&JdJ≥uIs4(4PJ:>2,"≥v)Hh*
↓ααAeuk	αNV¬∩⊗NN-→α2⊗$:⊗IαdJ:∀4PJ&→"T	:⊗Es⊃&Iem⊃\4(LZ1v&∩M")2H4(&L1".1t:Q9UL:=αRz↓E@4PJ&→"∪I:≡Qs↓&≡=¬"=↓HhQE@&L1"*¬t*E9ELQUv)0h(&&2B.1:<)9MAL:=αRz↓M@4T→↓α*,jAα~⎇⊃α6⊗u~VJε$J>9α≤J≡:Mph*
↓¬αVQαu*59αLqαAY∧J→αAJα:>Q¬*N⊗⊃r↓IAvl
b&6
a↓IElb>:≡
a↓IIl∩J⊗ZM→1α⊗$→84(LJ→"IBr≡∃9αJIauk⊂4*
αα6ε.-→α&Q¬:"&R*αV:2-~M↓5
α&MαLqαI`hP&≡=¬"=↓LhQH&JCi9]ThP&∩=β⊃Eα-k	1T4PJ&→"∪I::∃u∩!&≡zαR=↓∪λ4(&∪IvIeS⊂4(&∪IvIe{→84(L:=αRz↓IH4S⊃D&JCjJ!)∩p4)I⊂JJ¬vj>⊃"∪I19I*H4*
ααJ¬uβj↑"&$)1↓[↓u≡∞|b>Jε$J>9≤hP&&→E∩¬::*qA&IKjIe)
qT4*~↓αR=∧:⊗Qα$B∃αJL:"Qα≤BεB∀hP&)Uk	e9U\
2>≥C	Y9>∪I%=93IMEQ;	aD4T→↓α%t)9↓>b>≥!∩q%↓α4J:∩M¬~⊗E9∧rV5αLqα∩J
9α~&d)↓≡⊗
∩2e≥r↓IAvl
b&6
aα⊗R~p4(&∪Au5DhR
↓α4J21αM!αε2<
fM↓D∩2ε∞Zα:>R*H4(&L1"J¬t*E9AM⊃au5⊂h*
↓∧
2↑εM→α↑"M"∀4)_J&→"T	:⊗Es⊃&≡=¬"=↓Ih(&JCjIT4PJ*¬u~4(&[j)P4PJJbamα>M5A9*J≥")H4PJ&→"S):2Qs⊃A&≡zαR=↓0h*
α<yα6ε\)↓≡2L:εRV∀*M≥αβ1uEEk	αVAb↓u5EiEα∩⎇:91↓⊃uIα-↓1α⊗$→84(M⊃YvJ∀J≤4(Lr*Iu<~2⊗→∩84*
ααzzy∧*FV&2qαR=¬⊃E@4PJI]v∀∩&≤4PJ&→"∪)&IYjjIX4T→↓α&2αAUαM→α:⊗:αR"⊗rα&R⊗jα6>Z-→αR=∧b⊗~Q∧*bε∞$beα&%→αNB~∃84PJ)euh)↓↓α↓↓↓αSAvI`hQ↓↓↓α↓↓α&2B)a:t)95ELQau5⊂h(&&2B)U:t)9IeL:=αRz↓E\4PJI]um⊃\4(M⊃QvI"iU9`hR
↓αl
.⊗M∧b>:≡
α↑&RBαNR⊗jαVA↓jiα~>∩α2&≡
"VJ⊗_h(&)+iID4PJ≡=α$y↓\4S	\&&2B)U:e!9IML:=αRz↓\4(LJ→"IBr⊗E9k⊃&Iak4(&L1")at*E95∩J)auh*
↓∧2>Iα$J~~⊗∀*:Q↓<2&21:αN&R,
R&>u_4)]α↓↓↓↓α↓α∞εdaα∞2,2L4(LJ→")*r2Q9∪→&≡=¬"=↓E@h(&&2BIa:<)9A&<yαR=βλ4(&L1")Ut*E9IJJ≡=α$y↓D4PJ)Uu∪H4(&∪1vJ
L84(&∪9vJ
L84*
¬""&M¬αVRMα:6&∩$b∃≥αLqαN⊗lJ
J⊗4)1α6Lr&5αr⊃αN,j&6&tJ44(L:=αRz↓\4(hQE`&L1")]t:∃9AL:=αRz↓D4*~α&→αβ9α&M∧r⊗≥α$B⊗J∃¬:&21∧∩∃ᬬ~R⊗5∧z9α25!αN&$)↓vε∃→"I]JaαAU∧BεMα-↓6∩9ph(&J;jIP4PJIUulQ]*J≥!\4(L:=αRz↓EP4S0&J≥m⊃P4*~αR"&~α↑&2bα
∃α4zIα2L:εRV∀)αNR,jM↓"β)uEAm*A1↓k⊃Av∩⎇:9$4PJ&→"\a:≡Qs	A&≡zαR=↓λ4(&∪1u6I2QEA8hP&≡=¬"=↓E⊂h)EDM⊃Yv.biE@4PJ&→"S1&IYjjIX4S	H&JC9u59λh(&&2BIY&∃A]u6∃A\4(M⊃QvI"ZJa\hP&IYm⊃Y6JC9)I8hR
↓α∩>Z∃¬"=αε$RVNQ∧*:⊃α∧z&:R~α>→α$J2RMph(&JC9vI\hP&&→DQe&I≠jIM5∪99*J≥")H4T→↓α);i5Eu¬~"&~"α&Qα$yα2⊗5!α&Q=→α↑&%"!84PJJ¬v∪_4(&L1")aL:=αRz↓d4(M∩*]v∧zL4)(JIQv∪!59Q(h(&)+iU@4T→↓αACaAv
d
∞-αdJ≥9↓αuAv<B&R∃∧b&≥8hP&)Eβi@4)JJb=m∩2&≤hP&Iak→9d4PJIEEm⊃X4(M⊃MvI~YEM9C(⊃πH*RSTJ2
	RB=R3
	DO 55 JJJ=1,7 
	R9=RXO
	CALL ITMSUB
	POS=RJW
	R8=3.8
	R3=RB
55	RXO=RXO-.144
C  THICKENS HORIZ. SIDES
	R9=RXO
	GO TO 8
9	R4=R4-.95
	J9=0
	R5=R4+R6/RSTJ2
CC	R9=200
	J7=1
	R8=4.6
	R6=RX3+R8
	J10=14
C  MAKES SLOPED DASH, 14XTHICK
	IF(J9.EQ.0)GO TO 8
	R6=RX3
	J3=R3
8	CALL ITMSUB
	IF(RH.EQ.0)GO TO 13
	R5=ABS(RX7)
	IF(R5.EQ.0)R5=5
	R5=R5*RST7
14	RG=RG*RST7+RXX
	IF(RH.GE.20)R5=-R5
C NOW STEM IS DOWN. (-R5)
	CALL LINX(R3,RG,R3,RG+R5)
13	R4=RG
	J5=20
	R3=RA

1	IF(K.LT.502)GO TO 4
	IF(K.LT.513)RETURN
C  WILL NOW DO 1 LEDG. LINE ABOVE OR BELOW.
4	IF(NOLEDG)RETURN
	R4=RST7
	IF(K.GT.502)R4=13.*RST7
	R4=R4+RXX
	R5=20.
	IF(J5.EQ.20)R5=34.
	CALL LINX(R3-RST7,R4,R3+R5*RSTJ2,R4)

	RETURN

20	IF(R9.NE.0)J5=R5+23.
	RG=POS
C SAVE IT FOR SEMIMINIM REST HORIZANTAL
C  RESTS ARE SET BY RHYTHM(R9,7) OR IN J5 (20-25)
	R5=(J5-20)*2+3
	RA=R4
	IF(R5.GT.8.)R5=8.
	R5=R4+R5
C  RESTS (500+ IN P4) CAN BE MOVED UP OR DOWN
	R4=9
	IF(J5.GT.23)R4=7.
	R4=R4+RA
	J10=3
	J7=0
	R6=RX3
C ALL THIS MAKES VERT. LINE.
	CALL ITMSUB
	IF(J5.LT.25)RETURN
C NEXT IS FOR SEMIMINIM REST (1/16)
	R6=RX3+1.3
	R4=8+RA
	R5=R4
	POS=RG
	CALL ITMSUB
 	RETURN

C  MENSURATION SIGNS. USES P6 AS A NOTE. =30=C; 31=C.; 32=C/; 33=O; 34=O/
30	R4=R4+6
	CALL CENTX
C  P4=500 PUTS IT AT POS 6.
	R5=1
	J8=1
	IF(J5.GT.32)GO TO 31
C  NEXT ARE C'S
	J6=125
	J7=45
	GO TO 32
31	J6=0
	J7=0
32	CALL CIRCLE
	IF(J5.NE.31)GO TO 33
C  NEXT IS C.
	J5=0
	J6=0
	J7=0
	R5=.1
	GO TO 31
33	IF(J5.LT.32)RETURN
	IF(J5.EQ.33)RETURN
	R5=R4+1
	R4=R4-1
	R3=R3-11.*RSTJ2
	J7=0
	R6=RX3+2*RSTJ2
	CALL ITMSUB
	END